Pascal Super Library/Pascal Super Library (CW International)(1997).bin/DELPHI32/GRAPHICS/IMGLIB95/UFGRAB.DF_/UFGRAB.DF/UFGRAB.txt

Text File | 1996-03-31 | 4KB | 211 lines

object FrameGrab: TFrameGrab
  Left = 76
  Top = 106
  Width = 521
  Height = 300
  Caption = 'FrameGrab'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 372
    Top = 0
    Width = 93
    Height = 14
    Caption = 'Filename to save to'
  end
  object Label2: TLabel
    Left = 346
    Top = 48
    Width = 3
    Height = 14
  end
  object BitBtn1: TBitBtn
    Left = 217
    Top = 113
    Width = 97
    Height = 33
    Caption = '>> Capture >>'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object PMultiMedia1: TPMultiMedia
    Left = 18
    Top = 73
    Width = 161
    Height = 105
    AutoPlayMultiMedia = False
    AutoRePlayMultiMedia = False
    AutoHideMediaPlayer = False
    Color = clBtnFace
    MediaName = 'file not found'
    ImageDither = True
    ImageReadRes = lAutoMatic
    ImageWriteRes = sAutoMatic
    JPegSaveQuality = 25
    JPegSaveSmooth = 0
    MediaPlayer = MIMediaPlayer1
    TifSaveCompress = sNONE
    TextLeft = 0
    TextTop = 0
    TextRotate = 0
    TabOrder = 1
    TabStop = False
    UseTwainWindow = False
  end
  object Button1: TButton
    Left = 18
    Top = 8
    Width = 89
    Height = 33
    Caption = 'open video'
    TabOrder = 2
    OnClick = Button1Click
  end
  object MIMediaPlayer1: TMIMediaPlayer
    Left = 1
    Top = 179
    Width = 197
    Height = 30
    EnabledButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack]
    VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack]
    TabOrder = 3
  end
  object Button2: TButton
    Left = 416
    Top = 40
    Width = 80
    Height = 29
    Caption = 'Save to file'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 184
    Top = 14
    Width = 152
    Height = 57
    Lines.Strings = (
      'This form shows you how to '
      'Capture a frame from a video '
      'and save that frame to a file.')
    TabOrder = 5
  end
  object GroupBox3: TGroupBox
    Left = 283
    Top = 182
    Width = 216
    Height = 87
    Caption = 'Save As'
    Font.Color = clPurple
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    object CTOJPEG: TRadioButton
      Left = 16
      Top = 20
      Width = 80
      Height = 17
      Caption = 'JPG Image'
      TabOrder = 0
      OnClick = SaveAsChange
    end
    object CTOBMP: TRadioButton
      Left = 16
      Top = 42
      Width = 80
      Height = 17
      Caption = 'BMP Image'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = SaveAsChange
    end
    object CTOGIF: TRadioButton
      Left = 16
      Top = 65
      Width = 80
      Height = 17
      Caption = 'GIF Image'
      TabOrder = 2
      OnClick = SaveAsChange
    end
    object CTOPCX: TRadioButton
      Left = 103
      Top = 20
      Width = 80
      Height = 17
      Caption = 'PCX Image'
      TabOrder = 3
      OnClick = SaveAsChange
    end
    object CTOPNG: TRadioButton
      Left = 103
      Top = 42
      Width = 80
      Height = 17
      Caption = 'PNG Image'
      TabOrder = 4
      OnClick = SaveAsChange
    end
    object CTOTIF: TRadioButton
      Left = 103
      Top = 64
      Width = 80
      Height = 17
      Caption = 'TIF Image'
      TabOrder = 5
      OnClick = SaveAsChange
    end
  end
  object Edit1: TEdit
    Left = 376
    Top = 17
    Width = 121
    Height = 21
    TabOrder = 7
    Text = 'C:\TEST.BMP'
  end
  object PMultiImage1: TPMultiImage
    Left = 344
    Top = 73
    Width = 153
    Height = 105
    Color = clBtnFace
    Font.Color = clYellow
    Font.Height = -8
    Font.Name = 'Arial'
    Font.Style = []
    ImageName = 'file not found'
    ImageDither = True
    ImageReadRes = lAutoMatic
    ImageWriteRes = sColor256
    TifSaveCompress = sNONE
    JPegSaveQuality = 25
    JPegSaveSmooth = 0
    ParentFont = False
    Stretch = True
    Text = 'ImageLib by SkyLine Tools'
    TextShadow = True
    TextShadowColor = clGray
    TextLeft = 150
    TextTop = 10
    TextRotate = 270
    TabOrder = 8
    TabStop = False
  end
  object MMOpenDialog1: TMMOpenDialog
    AutoDisPlay = False
    AutoPlay = False
    Filter = '*.AVI;*.mov|*.avi;*.mov'
    Title = 'Open File'
    Left = 112
    Top = 10
  end
end